(define (next-row row)
  (map2 + (cons 0 row) (append row '(0))))
 
(define (triangle row rows)
  (if (= rows 0)
      '()
      (cons row (triangle (next-row row) (- rows 1)))))
 
(define t1 (for-each print (triangle '(1) 10)))
